home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok19 / qtext / qtext.def < prev    next >
Text File  |  1993-11-04  |  863b  |  30 lines
  1. (*---------------------------------------------------------------------------
  2.   :Program.    QText.def
  3.   :Author.     Fridtjof Siebert
  4.   :Address.    Nobileweg 67, D-7-Stgt-40
  5.   :Phone.      (0)711/822509
  6.   :Shortcut.   [fbs]
  7.   :Version.    1.0
  8.   :Date.       29-Apr-89
  9.   :Copyright.  PD
  10.   :Language.   Assembler
  11.   :Translator. M2Amiga v3.1d / Profimat
  12.   :Contents.   Procedure for fast text-output on a BitMap
  13. ---------------------------------------------------------------------------*)
  14.  
  15. DEFINITION MODULE QText;
  16.  
  17. FROM SYSTEM   IMPORT ADDRESS;
  18. FROM Graphics IMPORT BitMapPtr, TextFontPtr;
  19.  
  20. PROCEDURE QText(x{0},y{1}: INTEGER;
  21.                 str{8}: ADDRESS;
  22.                 bm{9}: BitMapPtr;
  23.                 tf{10}: TextFontPtr);
  24.  
  25. (* Gibt str^ an Position x,y in bm mit dem Font tf aus *)
  26. (* x gibt position in Zeichenbreiten (8 Pixel) an.     *)
  27.  
  28. END QText.
  29.  
  30.